Thank You All...It is working..

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject:

Hi,

Thank you all for the help...I have modified the code and it is working fine now.

Sub Initialize
Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim filesys As String
Dim FullPath As String
Dim OUName As String
Dim FileName As String
Dim Path As string
Dim db As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim Object As NotesEmbeddedObject
Dim IDFile As string

Set uidoc = ws.CurrentDocument
OUName = uidoc.FieldGetText( "OUName" )
FileName = uidoc.FieldGetText( "FileName" )
IDFile = uidoc.FieldGetText( "IDFile" )

Set doc = uidoc.document
Call uidoc.Save
Dim FullPath1 As Variant
FullPath = doc.GetItemValue("FullPath")(0)
Dim rtitem As New NotesRichTextItem (doc, "FileName")
Set Object = rtitem.EmbedObject(EMBED_ATTACHMENT,"",IDFile,OUName)
Call doc.Save(True,True)
End Sub

Feedback response number WEBB94WGQY created by ~Howard Nimnukonygon on 02/14/2013